From e287d4ea0eb515161cfc16025cc0ea1ffb486bf0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 2 Feb 2001 18:08:54 +0000 Subject: [PATCH] (info-initialize): If installation-directory is nil, for DOS/Windows systems try looking in a sibling of invocation-directory. --- lisp/info.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index dc9a7b7dea9..1add6ed522f 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -311,7 +311,19 @@ Do the right thing if the file has been compressed or zipped." (let ((path (getenv "INFOPATH")) (source (expand-file-name "info/" source-directory)) (sibling (if installation-directory - (expand-file-name "info/" installation-directory))) + (expand-file-name "info/" installation-directory) + (if (and (memq system-type '(ms-dos windows-nt)) + invocation-directory) + (let ((infodir (expand-file-name + "../info/" + invocation-directory))) + (if (file-exists-p infodir) + infodir + (setq infodir (expand-file-name + "../../../info/" + invocation-directory)) + (and (file-exists-p infodir) + infodir)))))) alternative) (setq Info-directory-list (prune-directory-list -- 2.30.2